perm filename ACK.MAC[LSP,JRA] blob
sn#349342 filedate 1978-04-19 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .TENPOINT←FALSE
C00006 ENDMK
C⊗;
.TENPOINT←FALSE
.VARIABLE FIRST_PAR,par; <<**********>>
.par←6;<<**********>>
.DEVICE XGP;
.!XGPLFTMAR←200;
.charw←12
.MACRO PAPER_SIZE(X,Y) ⊂ MILL_PAPER_HEIGHT←Y; MILL_PAPER_WIDTH←X; ⊃
.
.VARIABLE PAGE_HEIGHT, PAGE_WIDTH
.
.MACRO MARGINS (εLEFT,εRIGHT,εTOP,εBOTTOM) ⊂ BEGIN GROUP SELECT 1;
. IF MILL_PAPER_HEIGHT ≤ 0 THEN MILL_PAPER_HEIGHT←11000; <<8.5" X 11" DEFAULT>>
. IF MILL_PAPER_WIDTH ≤ 0 THEN MILL_PAPER_WIDTH ← 8500;
.
. BIT_RASTER_WIDTH←(MILL_PAPER_WIDTH*HBPI)/1000;
. BIT_RASTER_HEIGHT←(MILL_PAPER_HEIGHT*VBPI)/1000;
.
. IF LEFT ≥ 0 THEN ODDLEFTBORDER←LEFT ELSE ODDLEFTBORDER←1500;
. IF RIGHT ≥ 0 THEN RIGHTBORDER←RIGHT ELSE RIGHTBORDER←1000;
. IF TOP ≥ 0 THEN TOPBORDER←TOP ELSE TOPBORDER←1000;
. IF BOTTOM ≥ 0 THEN BOTTOMBORDER←BOTTOM ELSE BOTTOMBORDER←500;
.
. EVENLEFTBORDER←ODDLEFTBORDER; XGP_VSP←(MILLSPACING*VBPI)/1000;
.
. PAGE_WIDTH←(BIT_RASTER_WIDTH-(HBPI*(ODDLEFTBORDER+RIGHTBORDER))/1000)/CHARW
. PAGE_HEIGHT←(BIT_RASTER_HEIGHT-(VBPI*(TOPBORDER+BOTTOMBORDER))/1000)
. /(CHARH+XGP_VSP);
.
. hlines←page_height-4;
. wchars←page_width
.
. PAGE FRAME PAGE_WIDTH WIDE PAGE_HEIGHT HIGH
. TITLE AREA HEADING LINES 1 TO 2
. AREA TExT LINES 3 TO 50 << PAGE_HEIGHT-4>>
. TITLE AREA FOOTING LINE PAGE_HEIGHT
. PLACE TExT
. END ⊃;
.area text lines 3 to 47 ;<<**********>>
.HLINES← IF XCRIBL THEN 45 ELSE 53 << 49 NUMBER OF LINES/PAGE >>
.WCHARS← IF XCRIBL THEN 81 ELSE 69 << 81 NUMBER OF CHARS/LINE >>
.<<margins(1850,1750,1375,1375); >>
.HLINES← IF XCRIBL THEN 47 ELSE 53; << NUMBER OF LINES/PAGE >>
.WCHARS← IF XCRIBL THEN 81 ELSE 69; << NUMBER OF CHARS/LINE >>
.PAGE FRAME HLINES+2 HIGH WCHARS WIDE;
.<<AREA TEXTER LINES 4 TO 50 CHARS 1 TO WCHARS;>>
.REQUIRE "MACROS" SOURCE_FILE;
.paper_size(0,0);
.margins(1756,1656,1375,1375);
.turn on "%","#";
.GROUP SKIP 7;
.begin CENTer;select A;
Acknowledgements
.end
.select 1;fill
.GROUP SKIP 6;